home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.06 Jun 90 / ANSI Library Code / testCodeLib.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-01-24  |  878 b   |  38 lines  |  [TEXT/KAHL]
  1. #include "CodeLib.h"
  2. #include "HyperXCmd.h"
  3. #include "SetUpA4.h"
  4.  
  5. CODELIB;
  6.  
  7. pascal void main(XCmdBlockPtr paramPtr)
  8. {
  9.     int                TempInt1, TempInt2;
  10.     unsigned int    Seed;
  11.     long            TempLong;
  12.     StringHandle    TempHdl;
  13.     double            TempDouble1, TempDouble2;
  14.     Ptr                TempPtr;
  15.     Str255            TempStr;
  16.     
  17.     RememberA0();
  18.     SetUpA4();
  19.     LOADCODELIB();
  20.     TempHdl = (StringHandle)NewHandle(256);
  21.     TempPtr = *(paramPtr->params[0]);
  22.     TempInt1 = atoi((char*)TempPtr);
  23.     TempPtr = *(paramPtr->params[1]);
  24.     TempLong = atol((char*)TempPtr);
  25.     TempInt2 = (int)TempLong;
  26.     TempInt1 = TempInt1 * TempInt2;
  27.     TempDouble2 = (double)TempInt1;
  28.     TempDouble1 = sqrt(TempDouble2);
  29.     Seed = (unsigned int)TempDouble1;
  30.     srand(Seed);
  31.     (**idispatch)(CLsprintf,TempStr, "The square root of %d is %.2g.",
  32.         TempInt1, TempDouble1);
  33.     strcpy(*TempHdl, TempStr);
  34.     paramPtr->returnValue = (Handle)TempHdl;
  35.     
  36.     UNLOADCODELIB();
  37.     RestoreA4();
  38. }